unit UnitReDiaaDia;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RLReport, RLPDFFilter, RLParser, RLFilters, RLXLSFilter, DB,
  ADODB;

type
  TRelDiaaDia = class(TForm)
    RLXLSFilter1: TRLXLSFilter;
    RLExpressionParser1: TRLExpressionParser;
    RLPDFFilter1: TRLPDFFilter;
    rlRelatorio: TRLReport;
    RLBand2: TRLBand;
    RLDBText12: TRLDBText;
    RLDBText1: TRLDBText;
    RLDBText7: TRLDBText;
    RLDBText8: TRLDBText;
    RLDBText11: TRLDBText;
    RLDBText15: TRLDBText;
    RLDBText16: TRLDBText;
    RLDBText19: TRLDBText;
    RLDBText20: TRLDBText;
    RLDBText21: TRLDBText;
    RLDBText22: TRLDBText;
    RLDBText23: TRLDBText;
    RLDBText32: TRLDBText;
    RLDBText31: TRLDBText;
    RLDBText30: TRLDBText;
    RLDBText29: TRLDBText;
    RLDBText28: TRLDBText;
    RLDBText27: TRLDBText;
    RLDBText26: TRLDBText;
    RLDBText25: TRLDBText;
    RLDBText24: TRLDBText;
    RLDBText33: TRLDBText;
    RLDBText4: TRLDBText;
    RLDBText13: TRLDBText;
    RLDBText14: TRLDBText;
    RLDBText17: TRLDBText;
    RLDBText18: TRLDBText;
    RLDBText10: TRLDBText;
    RLDBText9: TRLDBText;
    RLDBText2: TRLDBText;
    RLDBText3: TRLDBText;
    RLDBText5: TRLDBText;
    RLDBText6: TRLDBText;
    RLDraw37: TRLDraw;
    RLDraw45: TRLDraw;
    RLDraw14: TRLDraw;
    RLDraw21: TRLDraw;
    RLDraw22: TRLDraw;
    RLDraw23: TRLDraw;
    RLDraw24: TRLDraw;
    RLDraw25: TRLDraw;
    RLDraw26: TRLDraw;
    RLDraw27: TRLDraw;
    RLDraw28: TRLDraw;
    RLDraw30: TRLDraw;
    RLDraw31: TRLDraw;
    RLDraw33: TRLDraw;
    RLDraw34: TRLDraw;
    RLDraw35: TRLDraw;
    RLDraw36: TRLDraw;
    RLDraw38: TRLDraw;
    RLDraw39: TRLDraw;
    RLDraw40: TRLDraw;
    RLDraw49: TRLDraw;
    RLDraw50: TRLDraw;
    RLDraw61: TRLDraw;
    RLDraw63: TRLDraw;
    RLDraw77: TRLDraw;
    RLDraw79: TRLDraw;
    RLDraw80: TRLDraw;
    RLDraw93: TRLDraw;
    RLDraw94: TRLDraw;
    RLDraw95: TRLDraw;
    RLDraw96: TRLDraw;
    RLDraw97: TRLDraw;
    RLDraw83: TRLDraw;
    RLDraw90: TRLDraw;
    RLSystemInfo3: TRLSystemInfo;
    RLDraw103: TRLDraw;
    RLDraw105: TRLDraw;
    RLDBText34: TRLDBText;
    RLDraw110: TRLDraw;
    RLDBText35: TRLDBText;
    RLDBText36: TRLDBText;
    RLDBText37: TRLDBText;
    RLDBText38: TRLDBText;
    RLDBText39: TRLDBText;
    RLDraw113: TRLDraw;
    RLDraw117: TRLDraw;
    RLDraw118: TRLDraw;
    RLDraw119: TRLDraw;
    RLDraw125: TRLDraw;
    RLDBText40: TRLDBText;
    RLBand1: TRLBand;
    RLImage1: TRLImage;
    RLSystemInfo1: TRLSystemInfo;
    RLSystemInfo2: TRLSystemInfo;
    RLLabel1: TRLLabel;
    RLLabel2: TRLLabel;
    RLLabel3: TRLLabel;
    RLLabel4: TRLLabel;
    RLLabel5: TRLLabel;
    RLLabel6: TRLLabel;
    RLLabel7: TRLLabel;
    RLLabel8: TRLLabel;
    RLLabel11: TRLLabel;
    RLDraw2: TRLDraw;
    RLDraw6: TRLDraw;
    RLDraw9: TRLDraw;
    RLDraw10: TRLDraw;
    RLDraw11: TRLDraw;
    RLDraw12: TRLDraw;
    RLDraw8: TRLDraw;
    RLDraw82: TRLDraw;
    RLDraw66: TRLDraw;
    RLLabel10: TRLLabel;
    RLLabel38: TRLLabel;
    RLDraw3: TRLDraw;
    RLDraw4: TRLDraw;
    RLDraw7: TRLDraw;
    RLDraw64: TRLDraw;
    RLDraw67: TRLDraw;
    RLDraw5: TRLDraw;
    RLDraw81: TRLDraw;
    RLLabel12: TRLLabel;
    RLLabel13: TRLLabel;
    RLLabel20: TRLLabel;
    RLLabel29: TRLLabel;
    RLLabel30: TRLLabel;
    RLLabel31: TRLLabel;
    RLLabel32: TRLLabel;
    RLLabel33: TRLLabel;
    RLLabel34: TRLLabel;
    RLDraw74: TRLDraw;
    RLDraw73: TRLDraw;
    RLDraw71: TRLDraw;
    RLDraw72: TRLDraw;
    RLLabel14: TRLLabel;
    RLDraw16: TRLDraw;
    RLLabel16: TRLLabel;
    RLDraw17: TRLDraw;
    RLLabel17: TRLLabel;
    RLDraw18: TRLDraw;
    RLLabel18: TRLLabel;
    RLDraw19: TRLDraw;
    RLLabel19: TRLLabel;
    RLDraw20: TRLDraw;
    RLLabel21: TRLLabel;
    RLDraw32: TRLDraw;
    RLLabel22: TRLLabel;
    RLDraw70: TRLDraw;
    RLLabel23: TRLLabel;
    RLDraw75: TRLDraw;
    RLLabel25: TRLLabel;
    RLDraw76: TRLDraw;
    RLLabel26: TRLLabel;
    RLDraw78: TRLDraw;
    RLLabel35: TRLLabel;
    RLDraw85: TRLDraw;
    RLLabel36: TRLLabel;
    RLDraw87: TRLDraw;
    RLLabel39: TRLLabel;
    RLDraw92: TRLDraw;
    RLDraw91: TRLDraw;
    rlIntervalo: TRLLabel;
    RLLabel15: TRLLabel;
    RLDraw106: TRLDraw;
    RLDraw107: TRLDraw;
    rlCabecalho: TRLLabel;
    RLLabel9: TRLLabel;
    RLDraw109: TRLDraw;
    RLDraw108: TRLDraw;
    RLLabel27: TRLLabel;
    RLLabel28: TRLLabel;
    RLDraw112: TRLDraw;
    RLLabel37: TRLLabel;
    RLLabel40: TRLLabel;
    RLLabel41: TRLLabel;
    RLDraw114: TRLDraw;
    RLDraw115: TRLDraw;
    RLDraw116: TRLDraw;
    RLLabel42: TRLLabel;
    RLDraw124: TRLDraw;
    RLBand4: TRLBand;
    RLDBResult17: TRLDBResult;
    RLDBResult19: TRLDBResult;
    RLDBResult20: TRLDBResult;
    RLDBResult21: TRLDBResult;
    RLDBResult22: TRLDBResult;
    RLDBResult23: TRLDBResult;
    RLDBResult24: TRLDBResult;
    RLDBResult25: TRLDBResult;
    RLDBResult26: TRLDBResult;
    RLDBResult31: TRLDBResult;
    RLDBResult32: TRLDBResult;
    RLDBResult33: TRLDBResult;
    RLDBResult34: TRLDBResult;
    RLDBResult35: TRLDBResult;
    RLDBResult37: TRLDBResult;
    RLDBResult38: TRLDBResult;
    RLLabel24: TRLLabel;
    RLDBResult1: TRLDBResult;
    RLDBResult2: TRLDBResult;
    RLDBResult3: TRLDBResult;
    RLDBResult4: TRLDBResult;
    RLDBResult5: TRLDBResult;
    RLDBResult6: TRLDBResult;
    RLDBResult7: TRLDBResult;
    RLDBResult8: TRLDBResult;
    RLDBResult9: TRLDBResult;
    RLDraw1: TRLDraw;
    RLDraw13: TRLDraw;
    RLDraw15: TRLDraw;
    RLDraw29: TRLDraw;
    RLDraw41: TRLDraw;
    RLDraw42: TRLDraw;
    RLDraw43: TRLDraw;
    RLDraw44: TRLDraw;
    RLDraw46: TRLDraw;
    RLDraw47: TRLDraw;
    RLDraw48: TRLDraw;
    RLDraw51: TRLDraw;
    RLDraw52: TRLDraw;
    RLDraw53: TRLDraw;
    RLDraw54: TRLDraw;
    RLDraw55: TRLDraw;
    RLDraw56: TRLDraw;
    RLDraw57: TRLDraw;
    RLDraw58: TRLDraw;
    RLDraw59: TRLDraw;
    RLDraw60: TRLDraw;
    RLDraw62: TRLDraw;
    RLDraw65: TRLDraw;
    RLDraw68: TRLDraw;
    RLDraw69: TRLDraw;
    RLDraw84: TRLDraw;
    RLDraw86: TRLDraw;
    RLDraw88: TRLDraw;
    RLDraw89: TRLDraw;
    RLDraw98: TRLDraw;
    RLDraw99: TRLDraw;
    RLDraw100: TRLDraw;
    RLDraw101: TRLDraw;
    RLDraw102: TRLDraw;
    RLDBResult10: TRLDBResult;
    RLDBResult11: TRLDBResult;
    RLDBResult12: TRLDBResult;
    RLDBResult13: TRLDBResult;
    RLDBResult14: TRLDBResult;
    RLDBResult15: TRLDBResult;
    dbTotal: TRLDBResult;
    RLDraw104: TRLDraw;
    RLDraw111: TRLDraw;
    RLDraw120: TRLDraw;
    RLDraw121: TRLDraw;
    RLDraw122: TRLDraw;
    RLDraw123: TRLDraw;
    dbMediant: TRLDBResult;
    dbProjecao: TRLDBResult;
    dbTotant: TRLDBResult;
    RLDraw126: TRLDraw;
    RLDBResult39: TRLDBResult;
    dbMedia: TRLDBResult;
    lbPercMedio: TRLLabel;
    lbPercTotal: TRLLabel;
    procedure RLBand4BeforePrint(Sender: TObject; var PrintIt: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RelDiaaDia: TRelDiaaDia;

implementation

uses UnitFormDiaDia;

{$R *.dfm}

procedure TRelDiaaDia.RLBand4BeforePrint(Sender: TObject;
  var PrintIt: Boolean);
begin
    lbPercTotal.Caption := FloatToStrF(((dbProjecao.Value/dbTotant.Value)-1)*100,ffCurrency,7,2);
    lbPercMedio.Caption := FloatToStrF(((dbMedia.Value/dbMediant.Value)-1)*100,ffCurrency,7,2);
end;

end.
